home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / ScrnSave.bin / c64.bas
Unknown  |  2019-04-13  |  2.0 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% gt2 Kopftext: '0 REM -- FILENAME' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 20 52 45 4d 20 2d 2d | 20 46 49 4c 45 4e 41 4d |0 REM --| FILENAM|
|00000010| 45 3a 20 22 43 42 4d 20 | 53 43 52 45 45 4e 53 41 |E: "CBM |SCREENSA|
|00000020| 56 45 52 22 2e 0a 31 30 | 20 43 4c 52 3a 50 52 49 |VER"..10| CLR:PRI|
|00000030| 4e 54 22 93 22 3b 3a 53 | 59 53 35 38 37 39 32 3a |NT".";:S|YS58792:|
|00000040| 54 49 24 3d 22 30 30 30 | 30 30 30 22 3a 4b 24 3d |TI$="000|000":K$=|
|00000050| 22 22 3a 50 4f 4b 45 31 | 39 38 2c 30 3a 47 4f 53 |"":POKE1|98,0:GOS|
|00000060| 55 42 32 37 30 0a 32 30 | 20 50 52 49 4e 54 22 93 |UB270.20| PRINT".|
|00000070| 22 3a 50 52 49 4e 54 54 | 41 42 28 32 30 29 3b 22 |":PRINTT|AB(20);"|
|00000080| 05 54 48 45 20 47 52 45 | 41 54 20 43 4f 4d 4d 4f |.THE GRE|AT COMMO|
|00000090| 44 4f 52 45 22 3a 50 52 | 49 4e 54 54 41 42 28 32 |DORE":PR|INTTAB(2|
|000000a0| 34 29 3b 22 53 43 52 45 | 45 4e 53 41 56 45 52 21 |4);"SCRE|ENSAVER!|
|000000b0| 22 0a 33 30 20 50 52 49 | 4e 54 22 13 11 11 11 11 |".30 PRI|NT".....|
|000000c0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|000000d0| 11 11 11 20 05 41 4e 59 | 20 4b 45 59 20 51 55 49 |... .ANY| KEY QUI|
|000000e0| 54 53 2e 90 22 0a 34 30 | 20 50 4f 4b 45 31 39 38 |TS..".40| POKE198|
|000000f0| 2c 30 3a 46 4f 52 5a 3d | 32 35 35 54 4f 30 53 54 |,0:FORZ=|255TO0ST|
|00000100| 45 50 2d 31 3a 50 4f 4b | 45 36 34 36 2c 5a 3a 47 |EP-1:POK|E646,Z:G|
|00000110| 4f 53 55 42 31 33 30 0a | 35 30 20 46 4f 52 58 3d |OSUB130.|50 FORX=|
|00000120| 32 35 35 54 4f 30 53 54 | 45 50 2d 31 3a 50 4f 4b |255TO0ST|EP-1:POK|
|00000130| 45 35 33 32 38 30 2c 58 | 3a 50 4f 4b 45 35 33 32 |E53280,X|:POKE532|
|00000140| 38 31 2c 58 3a 49 46 50 | 45 45 4b 28 31 39 38 29 |81,X:IFP|EEK(198)|
|00000150| 54 48 45 4e 58 3d 2d 39 | 3a 5a 3d 2d 39 0a 36 30 |THENX=-9|:Z=-9.60|
|00000160| 20 4e 45 58 54 58 2c 5a | 3a 49 46 5a 3c 2d 35 54 | NEXTX,Z|:IFZ<-5T|
|00000170| 48 45 4e 31 30 30 0a 37 | 30 20 53 59 53 35 38 37 |HEN100.7|0 SYS587|
|00000180| 39 32 3a 47 4f 53 55 42 | 33 32 30 3a 50 52 49 4e |92:GOSUB|320:PRIN|
|00000190| 54 22 93 11 9a 45 4c 41 | 50 53 45 44 20 54 49 4d |T"...ELA|PSED TIM|
|000001a0| 45 3a 20 22 2b 54 24 3a | 50 52 49 4e 54 22 48 49 |E: "+T$:|PRINT"HI|
|000001b0| 54 20 41 4e 59 20 4b 45 | 59 20 54 4f 20 51 55 49 |T ANY KE|Y TO QUI|
|000001c0| 54 2e 2e 2e 22 0a 38 30 | 20 46 4f 52 58 3d 30 54 |T...".80| FORX=0T|
|000001d0| 4f 33 30 30 30 3a 49 46 | 50 45 45 4b 28 31 39 38 |O3000:IF|PEEK(198|
|000001e0| 29 54 48 45 4e 58 3d 33 | 39 39 39 0a 39 30 20 4e |)THENX=3|999.90 N|
|000001f0| 45 58 54 58 3a 49 46 58 | 3c 33 35 30 30 54 48 45 |EXTX:IFX|<3500THE|
|00000200| 4e 50 52 49 4e 54 22 93 | 22 3b 3a 47 4f 54 4f 32 |NPRINT".|";:GOTO2|
|00000210| 30 0a 31 30 30 20 53 59 | 53 35 38 37 39 32 3a 47 |0.100 SY|S58792:G|
|00000220| 4f 53 55 42 33 32 30 3a | 50 52 49 4e 54 22 93 11 |OSUB320:|PRINT"..|
|00000230| 9a 45 4c 41 50 53 45 44 | 20 54 49 4d 45 3a 20 22 |.ELAPSED| TIME: "|
|00000240| 2b 54 24 0a 31 31 30 20 | 43 4c 52 3a 53 59 53 35 |+T$.110 |CLR:SYS5|
|00000250| 38 37 39 32 3a 50 4f 4b | 45 31 39 38 2c 30 3a 50 |8792:POK|E198,0:P|
|00000260| 52 49 4e 54 3a 50 52 49 | 4e 54 22 96 41 4c 4c 20 |RINT:PRI|NT".ALL |
|00000270| 44 4f 4e 45 21 9a 22 3b | 3a 43 4c 52 3a 45 4e 44 |DONE!.";|:CLR:END|
|00000280| 0a 31 32 30 20 53 54 4f | 50 0a 31 33 30 20 5a 24 |.120 STO|P.130 Z$|
|00000290| 3d 4d 49 44 24 28 53 54 | 52 24 28 5a 29 2c 32 29 |=MID$(ST|R$(Z),2)|
|000002a0| 0a 31 34 30 20 4c 3d 4c | 45 4e 28 5a 24 29 3a 49 |.140 L=L|EN(Z$):I|
|000002b0| 46 4c 3c 33 54 48 45 4e | 5a 24 3d 22 30 22 2b 5a |FL<3THEN|Z$="0"+Z|
|000002c0| 24 3a 47 4f 54 4f 31 34 | 30 0a 31 35 30 20 5a 31 |$:GOTO14|0.150 Z1|
|000002d0| 3d 56 41 4c 28 4d 49 44 | 24 28 5a 24 2c 31 2c 31 |=VAL(MID|$(Z$,1,1|
|000002e0| 29 29 3a 5a 32 3d 56 41 | 4c 28 4d 49 44 24 28 5a |)):Z2=VA|L(MID$(Z|
|000002f0| 24 2c 32 2c 31 29 29 3a | 5a 33 3d 56 41 4c 28 4d |$,2,1)):|Z3=VAL(M|
|00000300| 49 44 24 28 5a 24 2c 33 | 2c 31 29 29 0a 31 36 30 |ID$(Z$,3|,1)).160|
|00000310| 20 50 52 49 4e 54 22 13 | 22 3a 50 52 49 4e 54 3a | PRINT".|":PRINT:|
|00000320| 50 52 49 4e 54 3a 50 52 | 49 4e 54 0a 31 37 30 20 |PRINT:PR|INT.170 |
|00000330| 46 4f 52 58 3d 31 54 4f | 35 0a 31 38 30 20 50 52 |FORX=1TO|5.180 PR|
|00000340| 49 4e 54 54 41 42 28 30 | 37 29 3b 4e 4d 24 28 5a |INTTAB(0|7);NM$(Z|
|00000350| 31 2c 58 29 0a 31 39 30 | 20 4e 45 58 54 58 3a 50 |1,X).190| NEXTX:P|
|00000360| 52 49 4e 54 0a 32 30 30 | 20 46 4f 52 58 3d 31 54 |RINT.200| FORX=1T|
|00000370| 4f 35 0a 32 31 30 20 50 | 52 49 4e 54 54 41 42 28 |O5.210 P|RINTTAB(|
|00000380| 31 37 29 3b 4e 4d 24 28 | 5a 32 2c 58 29 0a 32 32 |17);NM$(|Z2,X).22|
|00000390| 30 20 4e 45 58 54 58 3a | 50 52 49 4e 54 0a 32 33 |0 NEXTX:|PRINT.23|
|000003a0| 30 20 46 4f 52 58 3d 31 | 54 4f 35 0a 32 34 30 20 |0 FORX=1|TO5.240 |
|000003b0| 50 52 49 4e 54 54 41 42 | 28 32 37 29 3b 4e 4d 24 |PRINTTAB|(27);NM$|
|000003c0| 28 5a 33 2c 58 29 0a 32 | 35 30 20 4e 45 58 54 58 |(Z3,X).2|50 NEXTX|
|000003d0| 3a 52 45 54 55 52 4e 0a | 32 36 30 20 53 54 4f 50 |:RETURN.|260 STOP|
|000003e0| 0a 32 37 30 20 52 45 53 | 54 4f 52 45 3a 44 49 4d |.270 RES|TORE:DIM|
|000003f0| 4e 4d 24 28 39 2c 35 29 | 0a 32 38 30 20 46 4f 52 |NM$(9,5)|.280 FOR|
|00000400| 58 3d 30 54 4f 39 3a 46 | 4f 52 59 3d 31 54 4f 35 |X=0TO9:F|ORY=1TO5|
|00000410| 0a 32 39 30 20 52 45 41 | 44 4e 4d 24 28 58 2c 59 |.290 REA|DNM$(X,Y|
|00000420| 29 0a 33 30 30 20 4e 45 | 58 54 59 2c 58 3a 52 45 |).300 NE|XTY,X:RE|
|00000430| 54 55 52 4e 0a 33 31 30 | 20 53 54 4f 50 0a 33 32 |TURN.310| STOP.32|
|00000440| 30 20 54 31 24 3d 54 49 | 24 3a 54 24 3d 4d 49 44 |0 T1$=TI|$:T$=MID|
|00000450| 24 28 54 31 24 2c 31 2c | 32 29 2b 22 3a 22 2b 4d |$(T1$,1,|2)+":"+M|
|00000460| 49 44 24 28 54 31 24 2c | 33 2c 32 29 2b 22 3a 22 |ID$(T1$,|3,2)+":"|
|00000470| 2b 4d 49 44 24 28 54 31 | 24 2c 35 2c 32 29 3a 52 |+MID$(T1|$,5,2):R|
|00000480| 45 54 55 52 4e 0a 33 33 | 30 20 53 54 4f 50 0a 33 |ETURN.33|0 STOP.3|
|00000490| 34 30 20 44 41 54 41 20 | 22 2a 2a 2a 2a 2a 22 0a |40 DATA |"*****".|
|000004a0| 33 35 30 20 44 41 54 41 | 20 22 2a 20 20 2a 2a 22 |350 DATA| "* **"|
|000004b0| 0a 33 36 30 20 44 41 54 | 41 20 22 2a 20 2a 20 2a |.360 DAT|A "* * *|
|000004c0| 22 0a 33 37 30 20 44 41 | 54 41 20 22 2a 2a 20 20 |".370 DA|TA "** |
|000004d0| 2a 22 0a 33 38 30 20 44 | 41 54 41 20 22 2a 2a 2a |*".380 D|ATA "***|
|000004e0| 2a 2a 22 0a 33 39 30 20 | 44 41 54 41 20 22 20 20 |**".390 |DATA " |
|000004f0| 2a 20 20 22 0a 34 30 30 | 20 44 41 54 41 20 22 20 |* ".400| DATA " |
|00000500| 2a 2a 20 20 22 0a 34 31 | 30 20 44 41 54 41 20 22 |** ".41|0 DATA "|
|00000510| 20 20 2a 20 20 22 0a 34 | 32 30 20 44 41 54 41 20 | * ".4|20 DATA |
|00000520| 22 20 20 2a 20 20 22 0a | 34 33 30 20 44 41 54 41 |" * ".|430 DATA|
|00000530| 20 22 20 2a 2a 2a 20 22 | 0a 34 34 30 20 44 41 54 | " *** "|.440 DAT|
|00000540| 41 20 22 2a 2a 2a 2a 2a | 22 0a 34 35 30 20 44 41 |A "*****|".450 DA|
|00000550| 54 41 20 22 20 20 20 20 | 2a 22 0a 34 36 30 20 44 |TA " |*".460 D|
|00000560| 41 54 41 20 22 2a 2a 2a | 2a 2a 22 0a 34 37 30 20 |ATA "***|**".470 |
|00000570| 44 41 54 41 20 22 2a 20 | 20 20 20 22 0a 34 38 30 |DATA "* | ".480|
|00000580| 20 44 41 54 41 20 22 2a | 2a 2a 2a 2a 22 0a 34 39 | DATA "*|****".49|
|00000590| 30 20 44 41 54 41 20 22 | 2a 2a 2a 2a 2a 22 0a 35 |0 DATA "|*****".5|
|000005a0| 30 30 20 44 41 54 41 20 | 22 20 20 20 20 2a 22 0a |00 DATA |" *".|
|000005b0| 35 31 30 20 44 41 54 41 | 20 22 20 20 2a 2a 2a 22 |510 DATA| " ***"|
|000005c0| 0a 35 32 30 20 44 41 54 | 41 20 22 09 00 20 20 2a |.520 DAT|A ".. *|
|000005d0| 22 0a 35 33 30 20 44 41 | 54 41 20 22 2a 2a 2a 2a |".530 DA|TA "****|
|000005e0| 2a 22 0a 35 34 30 20 44 | 41 54 41 20 22 2a 20 20 |*".540 D|ATA "* |
|000005f0| 20 2a 22 0a 35 35 30 20 | 44 41 54 41 20 22 2a 20 | *".550 |DATA "* |
|00000600| 20 20 2a 22 0a 35 36 30 | 20 44 41 54 41 20 22 2a | *".560| DATA "*|
|00000610| 2a 2a 2a 2a 22 0a 35 37 | 30 20 44 41 54 41 20 22 |****".57|0 DATA "|
|00000620| 20 20 20 20 2a 22 0a 35 | 38 30 20 44 41 54 41 20 | *".5|80 DATA |
|00000630| 22 20 20 20 20 2a 22 0a | 35 39 30 20 44 41 54 41 |" *".|590 DATA|
|00000640| 20 22 2a 2a 2a 2a 2a 22 | 0a 36 30 30 20 44 41 54 | "*****"|.600 DAT|
|00000650| 41 20 22 2a 20 20 20 20 | 22 0a 36 31 30 20 44 41 |A "* |".610 DA|
|00000660| 54 41 20 22 2a 2a 2a 2a | 2a 22 0a 36 32 30 20 44 |TA "****|*".620 D|
|00000670| 41 54 41 20 22 20 20 20 | 20 2a 22 0a 36 33 30 20 |ATA " | *".630 |
|00000680| 44 41 54 41 20 22 2a 2a | 2a 2a 2a 22 0a 36 34 30 |DATA "**|***".640|
|00000690| 20 44 41 54 41 20 22 2a | 2a 2a 2a 2a 22 0a 36 35 | DATA "*|****".65|
|000006a0| 30 20 44 41 54 41 20 22 | 2a 20 20 20 20 22 0a 36 |0 DATA "|* ".6|
|000006b0| 36 30 20 44 41 54 41 20 | 22 2a 2a 2a 2a 2a 22 0a |60 DATA |"*****".|
|000006c0| 36 37 30 20 44 41 54 41 | 20 22 2a 20 20 20 2a 22 |670 DATA| "* *"|
|000006d0| 0a 36 38 30 20 44 41 54 | 41 20 22 2a 2a 2a 2a 2a |.680 DAT|A "*****|
|000006e0| 22 0a 36 39 30 20 44 41 | 54 41 20 22 2a 2a 2a 2a |".690 DA|TA "****|
|000006f0| 2a 22 0a 37 30 30 20 44 | 41 54 41 20 22 20 20 20 |*".700 D|ATA " |
|00000700| 20 2a 22 0a 37 31 30 20 | 44 41 54 41 20 22 20 20 | *".710 |DATA " |
|00000710| 20 20 2a 22 0a 37 32 30 | 20 44 41 54 41 20 22 20 | *".720| DATA " |
|00000720| 20 20 20 2a 22 0a 37 33 | 30 20 44 41 54 41 20 22 | *".73|0 DATA "|
|00000730| 20 20 20 20 2a 22 0a 37 | 34 30 20 44 41 54 41 20 | *".7|40 DATA |
|00000740| 22 2a 2a 2a 2a 2a 22 0a | 37 35 30 20 44 41 54 41 |"*****".|750 DATA|
|00000750| 20 22 2a 20 20 20 2a 22 | 0a 37 36 30 20 44 41 54 | "* *"|.760 DAT|
|00000760| 41 20 22 2a 2a 2a 2a 2a | 22 0a 37 37 30 20 44 41 |A "*****|".770 DA|
|00000770| 54 41 20 22 2a 20 20 20 | 2a 22 0a 37 38 30 20 44 |TA "* |*".780 D|
|00000780| 41 54 41 20 22 2a 2a 2a | 2a 2a 22 0a 37 39 30 20 |ATA "***|**".790 |
|00000790| 44 41 54 41 20 22 2a 2a | 2a 2a 2a 22 0a 38 30 30 |DATA "**|***".800|
|000007a0| 20 44 41 54 41 20 22 2a | 20 20 20 2a 22 0a 38 31 | DATA "*| *".81|
|000007b0| 30 20 44 41 54 41 20 22 | 2a 2a 2a 2a 2a 22 0a 38 |0 DATA "|*****".8|
|000007c0| 32 30 20 44 41 54 41 20 | 22 20 20 20 20 2a 22 0a |20 DATA |" *".|
|000007d0| 38 33 30 20 44 41 54 41 | 20 22 2a 2a 2a 2a 2a 22 |830 DATA| "*****"|
|000007e0| 0a 38 34 30 20 53 54 4f | 50 0a 38 35 30 20 45 4e |.840 STO|P.850 EN|
|000007f0| 44 0a | |D. | |
+--------+-------------------------+-------------------------+--------+--------+